Adventures with Oslo: Tools & Gadgets/Adventures with Oslo - Tools and Gadgets.ISO/mac/Ad/Mod04/forceps/00061.ls

Text File | 1994-09-23 | 781 b | 25 lines

on startMovie
  global gBackPack
  set HC to the number of cast "handCursor"
  cursor([HC, HC + 1])
  if getOne(gBackPack, #vmap) = 0 then
    set the visible of sprite 45 to 0
  end if
  set GC to the number of cast "grabber"
  set the cursor of sprite 16 to [GC, GC + 1]
end

on mouseUp
  if the castNum of sprite the clickOn = the number of cast "forceps" then
    set horiz to the locH of sprite the clickOn
    set vert to the locV of sprite the clickOn
    set snapH to integer(word 1 of field "spriteLoc")
    set snapV to integer(word 2 of field "spriteLoc")
    if (abs(horiz - snapH) < 10) and (abs(vert - snapV) < 10) then
      set the locH of sprite the clickOn to snapH
      set the locV of sprite the clickOn to snapV
      go(1, "finroom")
    end if
  end if
end